home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_11_1986_Transactor_Publishing.d64 / sanitation 64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  71 lines
  1. 10 rem save"0:sanitation 64",8
  2. 100 rem sanitation engineer
  3. 110 rem for the commodore 64
  4. 120 rem by fred simon  8/85
  5. 130 ck=0: for i=51740 to 52223: read d
  6. 140 poke i,d: ck=ck+d: next
  7. 150 if ck=63591 then sys51740: end
  8. 160 print "error in data statements": stop
  9. 170 :
  10. 180 data  120, 169,  55, 133,   1, 169, 160, 133
  11. 190 data    3, 160,   0, 132,   2, 177,   2, 145
  12. 200 data    2, 136, 208, 249, 230,   3, 165,   3
  13. 210 data  201, 192, 208, 241, 169,  54, 133,   1
  14. 220 data   88, 169,   5, 141, 143, 183, 169,  33
  15. 230 data  141, 125, 163, 162,   2, 189,  83, 202
  16. 240 data  157,  38, 181, 202,  16, 247,  96,  76
  17. 250 data   86, 202, 169,   0, 141, 239, 203, 169
  18. 260 data   15, 133, 250, 169, 224, 133, 249, 165
  19. 270 data   52, 141, 240, 203,  56, 229,  50, 201
  20. 280 data   19, 144,  22, 233,   3, 133, 250, 165
  21. 290 data   50, 105,   0, 133, 249, 165,  56, 229
  22. 300 data   52, 105,   1, 197, 250, 176,   2, 133
  23. 310 data  250, 165,  56, 141, 242, 203, 165,  55
  24. 320 data  141, 241, 203, 133,  51,  24, 240,   1
  25. 330 data   56, 173, 242, 203, 133,  52, 233,   0
  26. 340 data  133, 251, 105,   0, 133, 252, 165,  50
  27. 350 data  105,   1, 133, 254, 165,  45, 233,   6
  28. 360 data  133,  95, 165,  46, 233,   0, 133,  96
  29. 370 data  165,  47, 133, 253, 165, 251, 205, 240
  30. 380 data  203, 144,  51, 229, 250, 133, 248, 165
  31. 390 data   52, 229, 251, 229, 248,  73, 255, 105
  32. 400 data    2, 197, 248, 144,   2, 165, 248, 205
  33. 410 data  240, 203, 176,   5, 173, 240, 203, 233
  34. 420 data    0, 133, 251,  32, 138, 203, 166,  48
  35. 430 data   32, 243, 202, 176,   9,  32,  39, 203
  36. 440 data  165, 251, 133, 252, 144, 182,  96,  24
  37. 450 data  165,  95, 105,   7, 133,  95, 144,   2
  38. 460 data  230,  96,  69,  47, 208,   4, 228,  96
  39. 470 data  240,  31, 160,   0, 177,  95, 200,  81
  40. 480 data   95,  16, 228, 177,  95,  16, 224, 160
  41. 490 data    4, 177,  95, 197, 251, 144, 217, 197
  42. 500 data  252, 176, 212,  32, 170, 203, 144, 208
  43. 510 data   96,  24,  96,  32,  83, 203, 176, 249
  44. 520 data  160,   2, 177,  95, 197, 251, 144,  10
  45. 530 data  197, 252, 176,   6,  32, 170, 203, 144
  46. 540 data    2,  96,  24, 169,   3, 101,  95, 133
  47. 550 data   95, 144,   2, 230,  96, 197, 253, 208
  48. 560 data  223, 228,  96, 208, 219, 240, 212,  24
  49. 570 data  165, 253, 133,  95, 134,  96,  69,  49
  50. 580 data  208,   4, 228,  50, 240,  39, 160,   2
  51. 590 data  177,  95, 101,  95, 133, 253, 200, 177
  52. 600 data   95, 101,  96, 170, 160,   0, 177,  95
  53. 610 data  200,  81,  95,  16, 218, 160,   4, 177
  54. 620 data   95,  10, 105,   5, 101,  95, 133,  95
  55. 630 data  144,   3, 230,  96,  24,  96, 165, 248
  56. 640 data  133,  79, 165, 249, 133,  89, 160,   0
  57. 650 data  132,  78, 132,  88, 166, 250, 232, 177
  58. 660 data   78, 145,  88, 200, 208, 249, 230,  89
  59. 670 data  230,  79, 202, 208, 242,  96,  72, 120
  60. 680 data  169,  53, 133,   1, 104, 197, 248, 144
  61. 690 data    5, 229, 248,  24, 101, 249, 133,  79
  62. 700 data  136, 177,  95, 133,  78, 136,  56, 165
  63. 710 data   51, 241,  95, 133,  51, 200, 145,  95
  64. 720 data  165,  52, 233,   0, 133,  52, 200, 145
  65. 730 data   95, 136, 136, 177,  95, 240,   9, 168
  66. 740 data  136, 177,  78, 145,  51, 152, 208, 248
  67. 750 data  169,  54, 133,   1,  88,  24, 165, 254
  68. 760 data  229,  52,  96,   0,   0,   0,   0,  67
  69. 770 data   49,  57,  56,  53,  32,  70,  46,  83
  70. 780 data   73,  77,  79,  78
  71.